home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / LgcyPlus / disk2 / SCRLWDGT._ / SCRLWDGT.
Encoding:
Text File  |  2001-03-02  |  959 b   |  30 lines
  1. 10    ! **************************************************
  2. 20    ! Example: SCROLLBAR Widget
  3. 30    !
  4. 40    ! This program generates a horizontal SCROLLBAR widget
  5. 50    ! and displays the value set with the slider.
  6. 60    !
  7. 70    ! **************************************************
  8. 80    !
  9. 90    ASSIGN @Scroll TO WIDGET "SCROLLBAR"
  10. 100   CONTROL @Scroll;SET ("TITLE":" Example: SCROLLBAR Widget")
  11. 110   CONTROL @Scroll;SET ("ORIENTATION":"HORIZONTAL")
  12. 120   CONTROL @Scroll;SET ("X":50,"Y":25,"HEIGHT":50,"WIDTH":275)
  13. 130   CONTROL @Scroll;SET ("SYSTEM MENU":"Quit")
  14. 140   !
  15. 150   ON EVENT @Scroll,"SYSTEM MENU" GOTO Finis
  16. 160   ON EVENT @Scroll,"DONE" GOSUB Dispval
  17. 170   LOOP
  18. 180     WAIT FOR EVENT
  19. 190   END LOOP
  20. 200   !
  21. 210 Dispval: !
  22. 220   STATUS @Scroll;RETURN ("VALUE":Scrollval)
  23. 230   DISP Scrollval
  24. 240   RETURN
  25. 250   !
  26. 260 Finis: !
  27. 270   CLEAR SCREEN
  28. 280   ASSIGN @Scroll TO *        ! Delete SCROLLBAR widget
  29. 290   END
  30.